(sendmail-send-it): Bind sendmail-coding-system

to buffer-file-coding-system if it is non-nil.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 0b9c14d24e97af1fcd3035ddd404f6db4d91c0ca..bd2e582efd02b2a2bdcdcc5047c02ad24050d770 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -590,7 +590,9 @@ the user from the mailer."
        resend-to-addresses
        delimline
        fcc-was-found
-       (mailbuf (current-buffer)))
+       (mailbuf (current-buffer))
+       (sendmail-coding-system (or buffer-file-coding-system
+                                       sendmail-coding-system)))
     (unwind-protect
        (save-excursion
          (set-buffer tembuf)